COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VMAP"
C00006 ENDMK
C⊗;
BEGIN "VMAP"

INTEGER CHN,EOF,I;
DEFINE N=255;
DEFINE MASK='377, OBPS=8,IBPS=8;

INTEGER ARRAY TABL[0:N];

REAL GAMMA;

DEFINE MAPADR='771000;

PROCEDURE MAPSET(INTEGER ARRAY TABL);
   BEGIN
   INTEGER WD;
   WD←1 LSH 35 + 1 LSH 17 + MAPADR LSH -1;
   USETO(CHN,LOCATION(WD));
   USETI(CHN,LOCATION(WD));
   ARRYOUT(CHN,TABL[0],N+1);
   END;


OPEN(CHN←GETCHAN,"ELF",'17,0,0,0,0,EOF);

FOR I←0 STEP 1 UNTIL N DO TABL[I]←I LSH (OBPS-IBPS);

MAPSET(TABL);

RELEASE(CHN);

END;